home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #6 / Commodore_Disk_User_Vol.3_6_1990_-.d64 / reset prevent (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  886b  |  21 lines
  1. 5 poke53280,14:poke53281,6:poke646,14
  2. 10 rem *****************************
  3. 20 rem ***    routine four       ***
  4. 30 rem *****************************
  5. 40 rem *** prevent your programs ***
  6. 50 rem *** from being reset !!   ***
  7. 60 rem *** well it works most of ***
  8. 70 rem *** the time !!           ***
  9. 80 rem *****************************
  10. 90 rem ***     david dewar       ***
  11. 100 rem *****************************
  12. 110 for t=32768 to 32862:read a:poke t,a:next t
  13. 130 data 9,128,9,128,195,194,205,56,48,169,21,141,24,208,32,68,229,169,8,141
  14. 140 data 114,5,169,5,141,115,5,169,12,141,116,5,141,117,5,169,15,141,118,5,169
  15. 150 data 8,141,120,5,169,1,141,121,5,169,3,141,122,5,169,11,141,123,5,169,5,141
  16. 160 data 124,5,169,18,141,125,5,169,33,141,127,5,169,2,141,32,208,141,33,208
  17. 170 data 169,6,141,32,208,141,33,208,32,75,128,96
  18. 180 print"[147]please hit reset button or press"
  19. 190 print"restore to test 'the reset prevent-er'"
  20. 200 goto 200
  21.